; Add a heading and a binding

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index d8f56acedf379907ef82f672c82b01eee723e1c0..e772570b9e1179f2408daad5a576eb9c725b2c0b 100644 (file)
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -490,10 +490,14 @@ DIRS must contain directory names."
   ;; Sidestep the issue of expanded/abbreviated file names here.
   (cl-set-difference files dirs :test #'file-in-directory-p))
 
+\f
+;;; Project commands
+
 ;;;###autoload
 (defvar project-prefix-map
   (let ((map (make-sparse-keymap)))
     (define-key map "f" 'project-find-file)
+    (define-key map "b" 'project-switch-to-buffer)
     (define-key map "s" 'project-shell)
     (define-key map "d" 'project-dired)
     (define-key map "v" 'project-vc-dir)